RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


**FILE**1D**PUTTOC 


PPPPPPPP UU WU TTTTTTTTITT TITTTTTTIT 000000 ccccccce 

PPPPPPPP UU UU TTTTTTTTTT TITTTTTITT 000000 cecccccc 

PP PP UU UU TT TT oo CC 

PP PP UU UU TT TT 00 oo CC 

PP PP UU UU TT TT 00 oo CC 

PP PP UU UU TT TT 00 oo CC 

PPPPPPPP UU UU TT TT 00 oo cc 

PPPPPPPP UU UU TT TT 00 oo CC 

PP UU UU TT TT 00 oo cc 

PP UU UU TT TT 00 oo cc 

PP UU UU TT TT 00 oo cc cece 
PP UU UU TT TT 00 cc eee 
PP UUUUUUUUUU TT TT 000000 ccccccce eee 
PP UUUUUUUUUU TT TT 000000 cccccccc eee 
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Puttoc = routines to pass binary information to 18-5 Sep- :3 AX-11 Bliss-32 V4.0 
if 7 4 4 138 9}: 39 3 RUNOFF .SRCJPUTTOC. BL i 


-Sep- 
TITLE ° oc = BENT gs ye 9 _past binary information to binary files’ 


MODULE P C ¢ at 
BLISS32 ADDRESSING_MODE ( EXTERNAL = LONG_RELATIVE 
NONEXTERNAL = LONG RELATIVE 


BEGIN 


PITTITITILII LLL LILI LLL LLL LL LLL LLL LLL LLL LLL LLL 
'e 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 

ie ALL RIGHTS RESERVED. 


ie aoe SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ACCORDANCE SF F SUCH LI 


is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
‘* ae pOkaT ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


® 
*® 
* 
® 
® 
* 
* 
et 
*® 
' 
is TRANSFERRED. ‘ 
® 
® 
oe 
4 
® 
® 
a 
a 
' ® 
Yee eee RARER AREA AREA AA AERA AAA RAR AAA AAA AAA AAR 
i 


lee 


FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

ABSTRACT: Routines to save table of contents information in a file. 
i 
ENVIRONMENT: Transportable 

AUTHOR: R.W.Friday CREATION DATE: May, 1979 


a a a dd dd dd od I I IOOOOO 
omcae 


a2 
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Sd 5 Bi rout ines to pass binary information to 16-Sep-1984 94:30:33 AX-11 Bliss-32 V4.0-74 Page 2 


Rev History -Sep- RUNOFF .SRCJPUTTOC.BLI; 

c3 } SSBTTL "Revision History’ 

43 MODIFIED BY: 

45 1! 014 KFA00014 Ken Alden 19-Jul-1983 

Pk 7. 3 Cone snenes ited the internal logic errors to check for 

r : /AUTO conditions. 
8 rk 1 i 013 KAD00013 Keith Dawson 28-June-1983 

50 1! Fix bug in which .SEND TOC 5 would get an additional RGH 
Boas : } written. 
0938 1 i 012 KAD00012 Keith Dawson 11-May-1983 

054 1! Disable sending .HEADER Cexample, figure, table} records to 
Boe2 ! FLIP. 
6089 1 i 011 KADO0011 Keith Dawson 11-April-1983 
0058 1! Added support for new termination error messages for 
0059 1! information written to .BRN file. This involved aceing 
0060 1! another formal to the RGH routine; this third formal is 
0061 1! TRUE or FALSE, as the caller determines whether or not to 
B08 : increment the count of information written to the .BRN file. 
0064 1! 010 KAD00010 Keith Dawson 23-March-1983 
Bees : Changed GCA_FLIP bit to (.gca_op_dev EQL op_dev_flip). 
0067 1: 
0068 1! Removed LNO1 conditionals and all references to .BIX 
534 : and .BIC files. 
0071 1! 008 KAD00008 Keith Dawson 07-Mar-1983 
0072 1! Global edit of all modules. Updated module names, idents, 
ood : copyright dates. Changed require files to BLISS library. 

1/ 


009 —- KAD00009 Keith Dawson 20-Mar-1983 
| 
| 


N11 
Pul TOC Puttoc = routines to pass binary information to 16-Sep-1984 01:30:3 AX-11 Bliss-32 V4.0-74 Page 3 
v04-000 Module Level Declarations 1o- 808-1388 03:39:88 RUNOFF .SRCJPUTTOC.BLI; . (3) 
; ae of } ZSBITL ‘Module Level Declarations’ 
; 80 781! 
: 7 144 } TABLE OF CONTENTS: 
H HE a8 1 FORWARD ROUTINE 
; = BS 0 ¢ 1 PUTRTY : NOVALUE, ! Writes record-type information to TOC binary file 
; 85 00835 1 PUTTXT : NOVALUE, ! "' parsed text "' 
; 86 0084 1 PUTTPG : NOVALUE, ! ** page number *' 
(oa 0085 1 PUTCNT : NOVALUE, ! ** counter and display descriptor "' 
; 8 0086 1 PUTHLI : NOVALUE; ! "* header level counters, display code "’ 
; se $4 1 
:; 8690 088 1! 
: 91 0089 1 ! EQUATED SYMBOLS: 
3 3 0090 1! 
. 0091 +1 
; | (94 0092 1! 
: 95 0095 1 ! INCLUDE FILES: 
:; 84696 0094 1! 
s oF 0095 1 
3 s 033 ! REQUIRE ‘REQ:RNODEF .REQ'; !' RUNOFF definition 
; 19 0938 } LIBRARY ‘NXPORT:XPORT'; ! XPORT Library 
3 106 U 0980 1 ZIF DSRPLUS XTHEN 
s 10 U 0231 1 LIBRARY ‘REQ:DPLLIB'; ! DSRPLUS BLISS Library 
: 104 OS e6 1 ZELSE 
; 105 023 1 LIBRARY ‘REQ:DSRLIB'; ! DSR BLISS Library 
: 106 0234 1 FI 
: 107 bS%2 1 
; 108 0236 1! 
3; 109 0237 1 ! MACROS: 
; 110 0238 1! 
. 3% 9572 1 
: Ng ™ 0240 1 CHECK_OPEN = 
s 11 M0241 1 XZIF FLIP 2THEN 
3 6114 M BSe¢ 1 (IF (.gca_op_dev EQL op_dev_flip) 
: 115 m 0243 1 
; 116 M0244 1 -RNOIOBCIOBSV_OPEN) 
. ser m 0245 1 
; «6118 M0246 1 -BRNOOBL 1 0B$V_OPEN)) 
3 119 M peer 1 ZELSE 
: 120 M0248 1 (.BRNOOBC 10B$V_OPEN)) 
: is M ire 1 2FI 
; 4s ; 50 1  £ 
. te 0251 1 
: 124 0 26 7) 
s 125 8 5 1 ! EQUATED SYMBOLS: 
$ $6 54 1! 
. Sar 35 Ft 
7. Ta 2$ 1 ! OWN STORAGE: 
: 129 7 =e 
; 130 28 1 
3 13 5 , ft 
s 4 § 60 1 ! EXTERNAL REFERENCES: | 
s 13 61 1! 
3: «134 0262 1 


OYT Toe Puttoc = routines to pass binary information to 16-50 -1984 :3 AX-11 Bliss-32 V4.0-74 Page 4 
-000 Module Level bec larattons . ~30e7} 38% 9}: 39: 3 RUNOFF .SRCJPUTTOC.BLI; . (3) vl 

s 135 $ 1 SIF FLIP XTHEN 

ee : U 6 1 EXTERNA 

SS u 0265 1 RNOIOB : REF $XPO_I0B (); 

; 138 28 1 XFI 

:; 139 ? 1 

; 140 8 1 EXTERNAL 

s 14) 8 1 BRNOOB : $XPO_I0B (); 

: 1*6 8 ys 

s 14 71 1 EXTERNAL 

3 (144 0 i 1 GCA : GCA_DEFIN Li 

3 145 0273 (1 HLDSP : VECTOR LEVELS), 

: 138 8 ee : HLLIST : COUNTED mist CMAX_LEVELS]; 

> 1468 0276 1 EXTERNAL LITERAL ‘Error messages 

> 149 0277 1 RNF ILE; 

s 150 0278 1 

3 151 0279 1 EXTERNAL ROUTINE 

3 13¢ 0280 1 RGH 

: 15 0281 1 ERMS; 
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GLOBAL ROUTINE PUTRTY (MAJOR_CODE, MINOR_CODE) 


14 


PUTRTY writes a record descriptor to the table of contents file 
i FORMAL PARAMETERS: 


MAJOR_CODE is 
MINORCODE is 


i IMPLICIT INPUTS: 
i IMPLICIT OUTPUTS: 


i ROUTINE VALUE: 
i COMPLETION CODES: 


ass binary information to 1 


7 
= e - 
12-Sep-1984 


144 
FUNCTIONAL DESCRIPTION: 


the major record type 
the minor record type 


None 
None 


None 
None 


S2 


: NOVALUE = 


C009 09 09 09 09 SIN NI NSIS NN NNO AAA APAAAOOMUIVIVW 


ka a a kk ak kd dt a 
oo 


OOOOOOOO0O@OwWO® 
DOONAO VE WR 3 9 OONAUE WN 9 OD NAUE WN OO ONA NEW | CO OONAUE wr 


Mornrnrrnn— 
See 
—OC0o~ 
cccccccccce 


MOMoPononys: 


Be Be Se Se Se Oe Be Ge Be Be Se Se Ge Ge Se Se Ge Be Fe Se Sete Ge Ge Fe Se Ge Se Ge Se Ge Ge Ge Ge Ge Ge Se Se Se Ge Fe Ge Se Se Se Ge Ge Fe Se Se ee Fe Ge Ge Se ee ee 


NM 

—_— 
WANA 
CONOUS WR — 


i SIDE EFFECTS: 


“= 


BEGIN 


OCAL 
TEMP_RECORD 
FLIP XTHEN 


CAL 
FLIP_RECORD 


: VECTOR (2); 
<IF 


: SFLIP_TOCRD; 
FI 


'Cursory check to make sure the file is opened. 
IF NOT check_open 
THEN 

BEGIN 

IF NOT .gca_black_box 


ERMS (RNFILE, CHSPTR (UPLIT ("PUTRTY')), 6); 
RETURN; 


END; 

= faa le dev EQL dev_flip) 
-9ca_op_dev op_dev 

THEN gca_op_ p.dev_flip 

BEGIN 
'Create a two-word descriptor record. 
FLIP_RECORD ETOCRD_RAJOR} = .MAJOR_CODE; 
FLIP_RECORD LTOCRD_MINOR) = .MINOR CODE; 
FLIP-RECORDCTOCRD CODE) = FLIPSK_TOCRD; 
perma (10B=.RNOIOB, TRING=(FCIPSK_TOCRD_SIZE,CHSPTR(FLIP_RECORD))); 
END; 

IFI 


'If this is an Index Record Group, writ 


the Record Group Header for it. 
'The Length of the described record is n 


. This special case exists 
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-Sep-1 RUNOFF .SRCJPUTTOC.BLI; 
eUraty sieett because it is called from outside this module -- namely, 
i Do count this record in the .BRN count 

if { peesera code EQL maj_runoff I Fix .STC 5 bug. 


THEN > code EQL min_index) 
rgh (brn_contents, 2, true); 
Create a wo-word gear tor record. 
iene RECO woe R_CODE 
TEMP RECORD MINOR ~CODE: 


'Now write the record type descriptor record. 
$XPO_PUT (108 = BRNOOB, BINARY_DATA = (2, TEMP_RECORD)); 


RETURN; 
END; 'End of PUTRTY 


=v 
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-TITLE PUTTOC Puttoc = routines to pass binary informa 


tion 
.IDENT \V04=000\ 
.PSECT S$PLITS,NOWRT,NOEXE,2 
00 00 59 54 52 54 55 50 00000 P.AAA: .ASCII \PUTRTY\<0><0> 
.EXTRN BRNOOB, GCA HLDSP 
“EXTRN HLLIST, RNFILE 
TEXTRN ERMS, KPOsPUT. * \POSFAILURE 


-PSECT SCODES,NOWRT,2 


0004 00000 .ENTRY PUTRTY, Save R2 

52 000000006 EF 9E 00002 MOV BRN NOOBS 48, R2 
5E 19 C2 00009 SUBL 
1D 02 A2 €8 0000C BLBS pring, 
5E 000000006 cf E8 0019 BLBS  GCA+ 

6 BD 001 PUSHL 

00000000' EF 9F 00019 PUSHAB ¥ AAA 
000000006 SF DD OO01F PUSHL #RNFILE 
000000006 EF 3 FB 3 CALLS #3, ERMS 

02 04 AC D1 D 1$: CMPL § MAJOR_CODE, #2 

1 1 6 BNEG 
05 08 AC D CMPL § MINOR_CODE, #5 

D 12 BNEQ 2$ 

1 0D 9 PUSHL #1 

DD 0 B PUSHL # 
DD D PUSHL 4 
000000006 EF FB F CALLS RGH 
08 AE 06 ac 7 6 2: MOvG AAJOR CODE, TEMP _RECORD 
6£ 4B MOV ' » STOBSOUTPUT 
02 AE 4 MOVB 4. SLOBSOUTPUT +2 

AE 005 MOVB $10BSOUTPUT+ 


TTOC 
-000 


; Routine Size: 
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Puttoc = routines to pass binary information to 1h-Sep-1 1984 Oo: 39: i3 AX-11 Bliss-32 V4.0-74 


Module Level Declarations 14-Sep-1984 RUNOFF .SRC PUTTOC.BLI; 


04 A e 6 MOVAB TEMP_RECORD, $10BSOUTPUT +4 
6 A ‘ B MOVAB $loBsourPur. 1 
= « F MOVB +44 
000000006 OF 063 PUSHAB CPOSTATLURE 
D4 6 CLRL se ) 
F 00068 PUSHAB 
000000006 EF FB OO6E CALLS He + POSPUT 
04 00075 3$: RET 


118 bytes, Routine Base: $CODE$ + 0000 


Bete Be Se Fe Fe Fe Se 


0357 


— pudeseegiownstnniiam _ ~) 


i ROUTINE VALUE: 
i COMPLETION CODES: None 


i SIDE EFFECTS: None 


F 12 
PUTTOC uttoc = routines to pass binary information to 16-Sep-1984 01:30:3 AX-11 Bliss-32 V4.0-74 P 
vO4~000 odule Level Declarations 1e-8ep-1986 45:07:49 ERUNDFF SRE PUT TOC. BL f; a 
28 GLOBAL ROUTINE PUTTXT (TEXT_LENGTH, TEXT_PTR, MAJOR_CODE, MINOR_CODE) : NOVALUE = : 
60 1 i++ 
° ; FUNCTIONAL DESCRIPTION: 
e§ PUTTXT writes parsed text to the table of contents file. 
6 | 
9 TEXT_LENGTH ig the number of bytes representing the text. 
68 TEXT ADDRESS is the address of the text. 
+4 ; MAJOR CODE and MINOR code are the major and minor record descriptors 
ty assocTated with the text. 
f | IMPLICIT INPUTS: None 
i IMPLICIT OUTPUTS: None 
' 
' 
4 
' 
' 
' 


BEGIN 


OCAL 
TEMP_RECORD : VECTOR (1000); 
ZI1F FLIP ZTHEN 


L 
FLIP_RECORD : SFLIP_TOCTXT; 


SN OL Et ee ee ee tee Se a eee 
MEWN SO OONAUES WN (OO ONAOUSWN ("OO ONOUS wr 


IF NOT check_open 
THEN 


BEGIN 
IF NOT .gca_black_box 

ERMS ‘RNFILE, CHSPTR (UPLIT ("PUTTXT')), 6); 
ha 


PIPIPURIPORPIPIPINIPINONPI NON NO No No PoP Nonononononyd 


2-0 


ON NN NNN NOOO 
WM —OOONOUS WN —O0eOn 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
é 
; 
XFI 
'Cursory check to make sure the file is opened. 


Be Se Se Se Be Se Be Se Fe Se Se Be Fe Se Ge Se Ge Ge Ge Se Ge Ge Fe Fe Ge GH Ge Se Se Se Ge Se Se Se Ge Ge Se Se Se Se Fe Se Se Se Se Se Se Se Se Se ee Be Se Se Seas ee 


ROPIPOPONINININGAINPNININY 


cccccccccccce 


SN 


i FORMAL PARAMETERS: 
| 
| 
| 


a a 
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Puttoc = routines to pass binary information to 1.56 -1984 01:30:3 AX-11 Bliss-32 V4.0-74 P 
Module Level Declarations . Wrieeat BBs PN89:Zs | HAMAR? Obsagese Ne. Or 74 age 63 
: ti} ZF 1 
: 419 'Write the Record Group Header for this TOC record. The length of the 
; 418 ‘described record is 3 more than Lh | allocation required for the text -- 
: 419 '2 fullwords of TOC header information (PUTRTY) and 1 fullword of size. 
: re y ! Do count this record in the .BRN count. 
3 : § rgh (brn contents, 3 + CHSALLOCATION (.text_length), true); 
; 9 424 ‘Write out the descriptor record 
: 60 ri 5 PUTRTY (.MAJOR_CODE, .MINOR_CODE); 
: be $ ‘Write out the number of characters of text. 
: be $XPO_PUT (10B = BRNOOB, BINARY_DATA = (1, TEXT _LENGTH)); 
: 04350 Qnty write text if there's some to write. 
$ 0431 IF .TEXT_LENGTH LEQ 0 
: 306 04 g THEN 
3 $04 bee 'No text to write 
; 308 0434 RETURN; 
3 94 0435 
: 10 0436 a4 the text into an area guaranteed to start on a word boundary. 
: V’ ok CH VE (.TEXT_LENGTH, .TEXT_PTR, CHSPTR (TEMP_RECORD)); 
: ig 0439 ‘Write out the contents entry. 
; ie peed § $XPO_PUT (10B = BRNOOB, BINARY_DATA = (CHSALLOCATION (.TEXT_LENGTH), TEMP_RECORD)); 
: 316 0442 1 END; 'End of PUTTXT 


-PSECT S$PLITS,NOWRT,NOEXE ,2 
00 00 54 58 54 54 55 50 00008 P.AAB: .ASCII \PUTTXT\<0><0> : 


03FC 00000 .ENTRY PUTTXT, Save R2,R3,R4,R5,R6,R7,R8,R9 : 0358 
59 000000006 EF 9€ 90008 MOVAB osput, : 
38 000000006 EF 9E 0000 MOVAB KPOSFAILURE, R8 : 
5 000000006 EF 9E 0019 MOVAB 10B$+6 : 
5E FOS 3 4 91 MOVAB =4008(SP), SP ; 
iE EE A? CE 1C BLBS BRNO 850 $ : 0393 
01 000000006 EF F9 00 0 BLBC  GCA+228, 1$ : 0396 
4 00027 RET F: 
06 pp 0028 1$ PUSHL #6 > 0398 
90000000" F OF A PUSHAB P.AAB : 
0000006 8F DD 0 PUSHL #RNFILE : 
000000006 _ EF 3 FB CALLS #3, ERMS : 
04 D RET > 0395 
1 DD 2$ PUSH “| : 0422 
56 04 AC 3 Ci 4 ADDL #3, TEXT_LENGTH, R6 : 
56 4 £6 4 DIVL : 
03 Ag F 0004 PUSHAB 3(R6) ; 
02 DD 00048 PUSHL #2 : 


| 
| 
| 
.PSECT $CODE$,NOWRT,2 
| 
} 


Puttoc - routines to 
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; Routine Size: 


000000006 f 
FF2D OCF 
6E 

§ AE 
ik 
‘ 

E8 A? 
69 

08 BC 
6 

O02 AE 

OS AE 
04 AE 
67 

E8 A? 
69 


Routine Base: 


ass binary information 


oc 


04 


BC 
04 
04 


08 


BC 


SCODES + 0076 


OF NVC SOOO PWP OF N08 POOCCOrO 
WNT Co NITEM fF EO OOWNIM OAM OO TU LS VIOW 
OMNOVIOOOOOO PN -F TNOTTOOOOOO MN" 


FOF SOOMMOOMOUID MFO OMMNOoOCOWlW 


QDOOOOCOGCOCOOCOCOG]oOOOOOCOOOOOCOO 


CoOOoOQCoooooooooooooooo 
peo fejolojelololelolololelololelolol ol olelololo!) 


to -360-1984 94:30:38 AX-11 Bliss-32 V4.0-74 


RUNOFF .SRCJPUTTOC.BL1; 


“jaa { 
TEXT_LENGTH, LS ne lai 
S{OBSOUTPUT 10B$+6 
40 10B$+44 


= (SP) 


iges 
#3, XPOSPUT 
| i male 


TEXT_LENGTH 
#4, R6, $1 
#2. $10B$OUTPUT+ 

#1. S$IOBSOUTPUT+ 

TEMP RECORD, S$IOBSOUTPUT+4 
$10BSOUTPUT. 10B$+68 

#7, 10B$+44 


-(SP) 
ies 
#3, XPOSPUT 


@TEXT_PTR, TEMP_RECORD 
UTPUT 


Be Se Be Se Be Se Se Se Se Se Se Ge Se Se Ge Ge Ge Ge Se Ge Ge Fe Ge Ge Fe Se Ge Ge Fe Se Ge Ge Ge Se Ge Ge Ge Se Ge Se Se Ss Se Se Se SF Se Fe Se Se oe Se Se Se Sees ee. 
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PUTTO Puttoc = routines to pass binary information to 1b-5¢ Sep-1 :3 Ax-11 Blis V4.0-74 Page 11 
-0 Module Level Declarations . ~Sep-1 7 9}: 39: i RUNOFF .SR iet56 eyegi ned ° (6) 
18 rr } GLOBAL ROUTINE PUTTPG (PAGE_REF, REC_TYPE) : NOVALUE = : 
0 445 1 !+44 ; 
1 rt, : FUNCTIONAL DESCRIPTION: : 
§ 128 ! } PUTTPG writes a page number into the table of contents file : 
5 rt ! FORMAL PARAMETERS: : 
? preg ! } PAGE _REF is the address of a page-number block. 
9 peed 1! REC_TYPE is a record type. us used R24 FLIP (only). This 
0 455 1! argument per he call is made from DSR, 
1 Be e8 73 from DSRPLUS; Ray this case the argument is 
¢ 0457 1! unused. 
Bees 1! 
4 0459 1 ! IMPLICIT INPUTS: None 
35 0460 1! . 
36 0461 1 =! IMPLICIT OUTPUTS: None 
37 ree. 1! 
338 0465 1 ! ROUTINE VALUE: 
339 0464 1 ! COMPLETION CODES: None 
#79 0465 1! 
41 0466 1 ! SIDE EFFECTS: None 
<0§ 0467 1 !-- 
Mn 0468 1 
44 469 BEGIN 
345 470 
346 0471 MAP 
347 047 PAGE_REF : REF VECTOR CPAGE_SCT_SIZE]; 
348 047 
349 0474 CAL 
350 0475 TEMP RECORD : VECTOR CPAGE_SCT_SIZE]); 
351 U 0476 Z1F FLIP XTHEN 
326 U 0477 AL 
35 U 0478 FLIP_RECORD : SFLIP_TOCPAG; 
54 0479 ZF I 
55 0480 
56 0481 ipenor € check to make sure the file is opened. 
57 048 IF NOT CHECK_OPEN 
58 048 
59 0484 EN REGIN 
o9 bie IF NOT .gca_black_box 
o¢ tbo ERMS (RNFILE, CHSPTR (UPLIT ("PUTTPG')), 6); 
6 488 RETURN; 
64 489 END; 
5 90 
66 U 0491 ZIF FLIP XTHEN 
67 U 049 IF (.gca_op_dev EQL op_dev_flip) | 
68 U 049 THEN 
$9 U 049% BEGIN | 
0 U 0495 FLIP_RECORD recras CODE] = .REC_TYPE; 
71 U 049 INCR’ I FROM 0 PAGE aa SIZE ot 
7 U 049 VECTOR CF FL acer’ TOCPAG_PAG I = 1) = .PAGE_REF C.1 = 1); 
7 U 049 $XPO_PUT ( ( 108- STRINGSTFL IPS. tat CPAG_SIZE, 
74, U 049 ubbtatrer? ORECORD) 9; 
} 


cc 


pale lo lololeleolelelolejlelelelelolololololo) 


ich teeth dh edie edible ide “chute edie “chub duh “dich ach “dh “hl 
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ISIS 


N23 BQO OOO 
OODWNAUE WR ODDIE WN O 


=r 


F1 


AX=11 Bliss-32 V4.0-74 
RUNOFF .SRCJPUTTOC.BLI; 


RETURN 

END; 
‘Write the Record group Header for this TOC record. The Length of the 
‘described record is 2 more than the allocation required for the page 
‘number -- 2 fullwords of TOC header information (PUTRTY). 
! Do not count this record in the .BRN count. 
rgh (brn_contents, 2 + page_sct_size, false); 


‘Write a descriptor record identifying what's to come as a page number 
PUTRTY (MAJ_RUNOFF, MIN_PAGE); 


| Copy i A number in too. 

INCR I FR TO Past ght Shee dO 
TEMP_RECORD C.I - 1) = .PAGE_REF C.1 = 1); 

$XPO_PUT (10B = BRNOOB, BINARY_DATA = (PAGE_SCT_SIZE, TEMP_RECORD)); 


END; 'End of PUTTPG 


-PSECT $PLITS,NOWRT,NOEXE ,2 
00 00 47 50 54 54 55 50 00010 P.AAC: .ASCII \PUTTPG\<0><0> 


-PSECT $CODES,NOWRT,2 


0004 00000 .ENTRY PUTTPG, Save R2 
52 000000006 EF 9 0000 MOV BRNOOB+48, R2 
SE 18 C2 000 SUBL2 #24, SP 
1D 02 A2 £8 0000C BLBS BRNOOB*50 1$ 
67 000000006 FF ER 9019 BLBS  GCA+228, $$ 
6 DD 0001 PUSHL #6 
0000000" EF 9F 00019 PUSHAB P.AAC 
00000006 8F DD OOOIF PUSHL &#RNFILE 
000000006 EF 3 FB 00025 CALLS #3, ERMS 
94 02¢ RET 
7E 6 70 00020 1$: OVO #6, -(SP) 
3 DD 0 PUSHL 
000000006 EF FB CALLS #3, RGH 
1 0D 000 PUSHL #1 
: DD 00038 PUSHL @ 
FE9B OCF FB 0 CALLS #2, PUTRTY 
1 1 0 va MOVL #1. I 
0 04 BC41 DE 00045 28: MOVAL apict REFCIJ, RO 
04 AESI FC OAO OD Qua MOVL =4(ROJ, TEMP. RECORD-4(1) 
51 04 F 30 AOBLEQ #4, I, 2$ 
bE 19 é 4 MOVW #16, $10BSOUTPUT 
02 AE 0 37 MOVB #2, SIOBSOUTPUT+ 
0 AE 1 B MOVB #1. SIOBSOUTPUT+ 
. a 08 AE 9€ 0 SF MOVAB TEMP RECORD, $1OBSOUTPUT +4 
7 ae 6E 9E 00064 MOVAB $IOBSOUTPUT. [0B$+6 


Pete Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Ge Se Se Ge Se Se Se Se Se 


oO 
uw 
= 
oo 
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2 07 90 8 MOVB a7. 108$+44 
000000006 gf +4 § as WOOSE ATL URE 
dO hs F 007 PUSHAB 
000000006 EF 05 FB 1g CALI © {PUT 
04 QOO7E 3$: or 


; Routine Size: 127 bytes, Routine Base: S$CODE$S + 0123 


MIMINININ — 3 OOO 


Ww 


S ak el ek et et le ak ek eh ek ek ee a ek et ae et et et et et et ot et et et et et et et 
WWIII PoPorofny 


Www 
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GLOBAL ROUTINE PUTCNT (¢ 


leleolelelelolelolololololo) 


: 
: 
: 
: 
| 


NOUN (CO OONOAOUES WN —"OO0OnOu 


SOOOOSCOOCOOCOOOOCOSOOOOOOOOOOOOOOSOOOOOCOOO 


SN NNN NNO AAPA AAP AAOOUIW 


NOUS WI OOO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


AX-11 Bliss-32 V4.0- 


MAJOR_CODE, MINOR_CODE, COUNTER VALUE, COUNTER _DISPLAY_CODE, 
PRE_LEN, PRE_PTR, POST_LER, POST_PTR 
) : NOVALUE = 


'e4¢ 


FUNCTIONAL DESCRIPTION: 
PUTCNT writes a counter and its display descriptor to the table of 
contents file. In addition it writes pre-counter and post-counter 
strings if they are not null. 
FORMAL PARAMETERS: 
MAJOR CODE and MINOR CODE identify the counter to the table of contents program. 
COUNTER_VALUE and COONTER_DISPLAY_CODE are the counter's value and display code. 
PRE_LEN and PRE PTR describe the pre-counter string. 
POST_LEN and POST_PTR describe the post-counter string. 
IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: None 


SIDE EFFECTS: None 


BEGIN 


LOCAL 
TEMP_RECORD : VECTOR (5); 


'If this call is for a header-level, call the appropriate routine and quit. 
Hani ttOR_CO8E EQL MIN_HL_INF 


BEGIN 
PUTHLI (); 
RETURN; 


Temporary restriction -- remove to enable sending DSRPLUS records to FLIP 
Tren eno dew EQL op_dev_flip) 


eer 
RETURN; 
** Eno of temporary restriction 


ipucsery check to make sure the file is opened. 
IF NOT ChECK_OPEN 
THEN 
BEGIN 
. a -gca_black_box 
ERMS (RNFILE, CHSPTR (UPLIT ("PUTCNT')), 6); 
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RETURN; 
END; 


' 

‘Write the Record a me Header for this TOC record. The length of the 

‘described record 
i TOC header, from PUTRTY) plus 


jolefelelelelelolo) 


(number of ful lwords nodes to save the parameters) plus 


on (pre-counter string) 


i 
i 
+ ch$allocat 
i 


1 + ch$allocation (post-counter string) 


PUPP PPV PVPS STS SST 
ODO0O0000000 0000000000 C000 00 0D 0D CO ~y 
SOWONAVE WN CODNOULS WN O 


a 
~ 
oO 
polo fofojejejelelelolololoelo) 


469 ; false 

in we 

47 iwrite a descriptor record ub Ope the supplied descriptive information. 
re PUTRTY (MAJOR CODE, .MINOR_CODE); 

476 6 'First write out the counter value. 

ry be83 $XPO_PUT (10B = BRNOOS. BINARY_DATA = (1, COUNTER_VALUE)); 

479 060 'Now write the otek ay information 

480 0604 $XPO_PUT (I0B = BRNO BINARY_DATA = (1, COUNTER_DISPLAY_CODE)); 
481 0605 

the ee $XPO_PUT (I0B = BRNOOB, BINARY_DATA BRE LEN)); 

486 061 'If that songeh t is not zero, write the string too. 

487 0611 . -PRE_LEN 

189 sat BEG! 

490 


she 3 PRE LEN, an area guaranteed to start on a word boundary. 


'Co 
CHSMOVE (.PRE_L -.«PRE_PTR, CHSPTR (TEMP_RECORD)); 
'Now write the s 


Hg PUT (108 = BRNOSS, BINARY_DATA = (CHSALLOCATION (.PRE_LEN), TEMP_RECORD)); 


ao ae St a 


FU OOONOAUE WN "9 OONOUS WN Oo 


pfinstly. write the Length of the poste gounter string. 
$XPO_PUT (I10B = BRNOOB, BINARY_DAT (1, POST_LEN)); 


'If that Length is not zero, write the string too. 
ae -POST_LEN GTR 0 


To « 
POST CEN” an area guaranteed to start on a word boundary. 


tne ve" § POST -POST_PTR, CHSPTR (TEMP_RECORD)); 
(Now write the's 


re PUT (10B = *BRNOOB, BINARY_DATA = (CHSALLOCATION (.POST_LEN), TEMP_RECORD)); 


i 48 0606 


rd 
48 0607 iurite the Length of the PRaRy bata set wi he 
484 B 


SESS33333333333333E Soooo 


wi 
SSRLEARRANLSS 


PPPAAMAVIAVIV 


RETURN 


Puttoc - routines to 
Module Level Declarations 


02 00000000G_ EF 


EE 
000000006 


00000000' 
000000006 


06 A7 


04 


oc 


BC 


10 


Oo 
~“ 


OOOO F NN00: POOCOCOPOOLOOOCON OCOOMO Mr COO GCOr—mmm 
=F WOM ONTO SM FNVOWNIALSWEWwM WSS "CO —fF OOOO MTN 


> 
oO 


N 12 
ass binary information to 16-Sep- 
14-Sep- 


00 00 54 4& 43 54 55 50 00018 P.AAD: 


FC 00000 
9E 44 
9E BeOS 
9E 00010 
C2 00017 
DS OOO1A 
12 00010 
FB OOO1F 
04 000 § 
ED 000 
12 00030 
04 tT] 
E8 000 
Be bpo3e 
DD 0003F 
9F 00041 
DD 00047 
BB p0080 
04 00054 
D4 00055 
C1 00057 
EF poe 
6 00064 
ee tre 
43 2006p 
eat 
$B 900% 
3 a084 
oF Boone 
9 ban 
DD 94 
4 26 
Pe bee 
pS 
A 
i 
9E QOO0A 


1986 §3:d7:29 


'End of PUTCNT 


»PSECT 
-ASCII 


AX-11 Bliss-32 V4.0-74 
RUNOFF ..SRCJPUTTOC.BLI; 


SPLITS,NOWRT ,NOEXE,2 
\PUTCNT\<0><0> 


SCODES ,NOWRT ,2 

PUTCNT, Save R2,R3,R4,R5,R6,R7,R8,R9,R10 
XPOSPUT, R 

KPOSFAILURE R9 

10B$+68, R8 

#28, SP 

MINOR_CODE 

#0, PUTHLI 


#4, #4, GCA+208, #2 
2s 


BRNOOB+50, 4$ 
GCA+228, 3$ 


#6 
P. AAD 

#RNF ILE 

#3, ERMS 

-(SP) 

#5, PRE_LEN, R6 
#3, POST_LEN, R7 
#4. R 

6(R7)CR6I 


#3, RGH 
MAJOR CODE, -(SP) 


#1, SIOBSOUTPUT+ 
UNTER VALUE, SIOBSOUTPUT+4 
UTPUT, 10B$+68 


I 

#3” xpospur 

#4; S$1OBSOUTPUT 

#2, $IOBSOUTPUT+ 

#1; $1OBSOUTPUT+ 
COUNTER_DISPLAY_CODE, SIOBSOUTPUT+4 


0521 
0558 
ws 


PUTTO 
v04-000 


; Routine Size: 
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08 AE 
6E 
08 AE 
6E 


350 bytes, 


E8 


02 
03 
04 


E8 


Routine Base: 


6 
A 


6A 


BC 


14 


BC 
14 
14 


08 


BC 


1¢ 


BC 
1¢ 
1¢ 


08 


BC 


DWOWOM OQNMOS $V LFWOM ONIMM PLEO OOWOM ONIMO MW FWOMo 


POOCOPNV SOF NWNOHPPOSCSCOE VWIOS POCO PNP OF VIO POOSCOFY WI0K 
mMm—rmLo ~m 


o~nm 


>No 


0 


14-Sep-1 


SoOOoOCCooooooooooooooooooooooe 


FOR LSO OMMOOMOUMD BM LEO OMMOOOD BLO OMMOOMOUIMD MSO OMMooog"sSsvoom 


p+ + 0 + +o + + + 0 + e+ tie + tite tite + +o + +e 6 ooo oo + + oe ot oe ee ee ee eee 


SSOSSSSSSSSSSSSSSSSSOSSSSSSOSO 
93939939 99993939 SSS SS SB OOSOSOSOSOOOSOOSOSSOSOSOSOSOSOSSOSOSOO 


OnNOVTTOOOOO PN -F TOTTOOWOOOT "OCT OOOOO PR) Oo TN OVCTCOOOOOT"ovoVT OO 
DAIS & BF EWN ANININININIDN | | “DOOCOCCO NNN HMMMMOOVIVVMNOOOoOwWWwwa > 
SP NMNWANMNO NW LIMO ON MON MD OMA LOS WOLOM VW FOO BS OI™OONU—™M 


SCODES + O1A2 


5$: 


be 13:07:09 


AX-11 Bliss-32 V4.0-74 
RUNOFF ..SRCJPUTTOC.BLI; 


gpoesouTryy - 10B$+68 
40 10B$+44 


= (SP) 


TPUT+ 
$I0BSOUTPUT+4 
PUT, 108S+68 
=(SP) 

1988 

#3, XPOSPUT 
pre LEN 


= (SP) 
Bs 


TPUT+ 
POST LEN, SIOBS$OUTPUT+4 
SIOBSOUTPUT, 10B$+68 
#7, 10B$+44 

-(SP) 


% 
#3, XPOSPUT 
POST_LEN 


@POST PTR, TEMP_RECORD 


OUTPUT 

UTPUT+ 

TEMP RECORD, SIOBSOUTPUT+4 
S}OBSOUTPUT. 10B$+68 

4o 10B$+44 

=(SP) 

iges 

#3, XPOSPUT 


See Se Se Se Se Se Se Se Se Se Se Se Ge Ge Fe Se Se Be Fe Fe Ge Ge Se Fe Ge Be Be Be Se Ge Se Be Se Se Ge Se Be Ge Fe Be Ge Ge Fe Se Be Be Se Be Be Be Be Be 


0622 


0625 


0629 
0631 


0636 
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. 
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; i? e34 ! GLOBAL ROUTINE PUTKLI : NOVALUE = : 
3 1 6 § 1 !4+ $ 
3 i ek : } FUNCTIONAL DESCRIPTION: 3 
; 319 Bee } } PUTHLI write header Level information into the table of contents file. $ 
: $21 644 1 ! FORMAL PARAMETERS: None $ 
; > ¢ 645 1! 3 
i.e 646 1 ! IMPLICIT INPUTS: None ; 
; 524 0647 1! 3 
3 é 5 pete 1 ! IMPLICIT OUTPUTS: None F 
3 6 649 1! ; $ 
Ser 0650 1 ! ROUTINE VALUE: 3 
; 528 0651 1 ! COMPLETION CODES: None 3 
3 262 8026 1! 2 
; 530 0653 1 ! SIDE EFFECTS: None 

s 93) 0654 1! 

3 235 0655 1 !-- 

: 32 8028 1 

3; 534 065 BEGIN 

; 535 0658 

; 536 U 0659 ZIF FLIP XTHEN 

s S30 U 0660 LOCAL 

s $538 U 0661 FLIP_RECORD: SFLIP_TOCHLI; 

3 So 066 XFI 

; 540 0665 2 

3; «541 0664 § iFewor t check to make sure the file is opened. 

3 ete 0665 M NOT CHECK_OPEN 

3; «54 0666 

: 544 0667 EN REG GIN 

> 545 0668 IF NOT .gca_black_box 

: 546 0669 

s $47 0670 3 ERMS (RNFILE, CHSPTR (UPLIT ("PUTHLI')), 6); 

; 548 0671 RETURN; 

; 549 0672 2 END; 

; 550 0673 2 

s 391 U 0674 2 XIF FLIP XTHEN 

3 Soe U 0675 2 IF (.gca_op_dev EQL op_dev_flip) 

3; 553 U 0676 THEN 

: 554 U 0677 BEGIN 

5 339 U 0678 FLIP_RECORDCTOCHLI_CODE] = FLIPSK_TOCHLI; ! HLI resere code 

: 226 Y 9044 INCR INDEX FROM 0 TO MAX_LEVELS+1~ ! Copy HL info 

3 23h U bea 3 VECTORCFLIP_RECORDCTOCHLI _HLLISTJ,.INDEXJ= -VECTORCHLLIST,. INDEX); 

; 44 U pose INCR INDEX FROM™O TO MAX_LEVECS= -1 ' Copy format info 

3 26 U 0684 CTORCFLIP RE CONDE TOCHL | WLDSE). - IMDEXI=. HLDSPL. INDEX); 

3 266 U 0685 $xPo" Bur. 10B=.RNOIOB, STRING=(FLIPSK_TOC HLI_SIZE, 

; 56 U 686 CHSPTR(FLIP_RECORD))); 

: 564 U 068 RETURN 

; 565 U 0688 END; 

8. ee a™ 

; eR 691 ‘Write the Record ee Header for this TOC record. The length of the 

3 29? O34 joe ribed record 

3 70 69 (TOC header, PUTRTY) plus 


piemitihnicimmaniiesignlemncnish —— 
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V "$50 Module Level Declarations : : 14- =300 7138 94:39:23 RUNOFF’ SR $p0 TTOC. Buist trices (B) u 
3 Sri 694 ' 2 (header-level count) plus . 
: if oa? twice the maximum header=level depth (MAX_LEVELS). : 
; 378 $37 i Do not count this record in the .BRN count. 
3 278 0899 rgh (brn_contents, 2 + 2 + max_levels + max_levels, false); : 
3 2/8 070) yo a Srsercpter record identifying what's to come as header level : 
: 980 0708 PUTRTY. (MAJCRUNOFF, MIN_HL_INF) ; 
: 286 0703 ‘First write the header Level numbers themselve : 
: 37 BOS $XPO_PUT (10B = BRNOOB, BINARY_DATA = (es SAX *reveLs, HLLIST)); : 
: 585 0708 'Now write the disple information ; 
: a38 1494 $XPO_PUT (I10B = BRNOOB, BINARY DATA = (MAX_LEVELS, HLDSP)); : 
: 588 0711 ‘And that's it for header | ; : 
589 0712 Bee ep ihe eet : 
; 590 0713 2 3 
s 591 0714 1 END; 'End of PUTHLI ; 
.PSECT $PLIT$,NOWRT ,NOEXE , 2 : 
00 00 49 4C 48 54 55 50 00020 P.AAE: .ASCII \PUTHLI\<0><0> ; ; 
-PSECT SCODES,NOWRT,2 
001¢ 00000 .ENTRY PUTHLI, Save R2,R3,R4 ; 0637 F 
54 00000000G EF 9E ai MOVAB XPOSPUT, R $ 3 
53 00000000G EF 9€ 0000 MOVAB ae al R3 ; 3 
52 000000006 Ff 9E 00010 MOVAB 3 3 
5E 8 C2 00017 SUBL2 #8, 3 3 
1D FE 42 E8 QOO1A LBS BRNOOB+50 ; 0665 3 
72 000000006 FF : OO01E LBS  GCA+228, 53" > 0668 : 
6 DD 03 PUSHL ge, 3; 0670 3 
00000000" EF 9F 00027 PUSHAB P.AAE 3 3 
000000006 8F ODD 32 4 PUSHL M#RNFILE 3 3 
00000000G_ EF 3 FB 00 CALLS #3, ERMS ; 3 
9 8 A RET 3: 0667 3 
7E 1 D B 18: MOVQ #16, -(SP) ; 0699 3 
DD PUSHL B : 3 
000000006 cr FB 0004 CALLS 53° RGH 3 : 
E 7D 0004 MOVQ * sutary ; 0703 3 
FCB1 CF F 004A CALLS 3 : 
6E : 4F MOVW Mes  STOBSOUTPUT > 0706 : 
0 AE ¢ bee MOVB #2 "$I pt yah badd | 3 3 
0 AE 9 MOVB #1. SIOBSOUTPUT+ 3 g 
AE 00000000G EF 9E OO0SA MOVAB LIST, SIOBSOUTPUT+4 3 3 
6 5 43 $e MOVAB ae TPUT, IOBS+ 3 : 
EB A 9 MOVB - 10BS+44 3 3 
3 OD 69 PUSHL ; 3 

E D4 00068 CLRL -(SP) : 
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4-000 Module Level Declarations 14-Sep-1 RUNOFF .SRCJPUTTOC.BLI; 
BC A2 OF : PUSHAB 10B$ ; : 
64 03 F CALLS # XPOSPUT : ; 
6E 1 : 7 MOVW = #24, $108 OUTPUT + 0709 ; 
02 AE 0 76 MOVB #2, $10B OUTPUT+2 ; : 
AE 9 7A MOVB #1, $IOBSOUTPUT+ : : 
04 AE 000000006 EF gE Ove MOVAB HLOSP $10BSOUTPUT +4 ; : 
6 5 e : MOV $1OBSOUTPUT, 10B$+68 : : 
EB OA 96 000 MOVB #7, I10B$+44 : ; 
3 DD 0008D PUSHL R3 : ; 
b4 O08F CLRL <<(SP) : ; 
BC A2 9F 00091 PUSHAB 1988 : : 
64 03 FB 0094 CALLS #3, XPOSPUT : ; 
04 00097 2$: RET t 0714 : 
; Routine Size: 152 bytes, Routine Base: S$CODE$ + 0300 : 
: 59 0715 : 
; 59 0716 1 END 'End of module ; 
> 594 0717 0 ELUDOM ; 
PSECT SUMMARY ; 
: Name Bytes Attributes ; 
: SPLITS 40 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
> SCODES 920 NOVEC,NOWRT, RD, EXE.NOSHR, LCL. REL, CON.NOPIC,ALIGN(O) : 
3 Library Statistics 3 
So Se ee gee oe Hee ei ae Symbols -------- Pages Processing ; 
: File Total Loaded Percent Mapped Time ; 
: _$255$DUA28:CSYSLIBIXPORT.L32;1 590 99 16 252 00:00.1 F 
; 7$255$DUA28: CRUNOFF .SRCIDSRLIB.L32;1 1248 15 1 86 00:00.3 : 
; COMMAND QUALIFIERS 3 
: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:PUTTOC/OBJ=OBJ$:PUTTOC MSRC$:PUTTOC/UPDATE=(ENH$:PUTTOC) i 


; Size: 920 cog + 40 data bytes 
3; Run Time: : .. 
; Elapsed Time: 743, 
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3 Lines/CPU Min: 1932 
3; Lexemes/CPU-Min: 511 
; Memory Used: 152 pages 
; Compilation Complete 
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